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MODULE DEACCS es (Oh S858) ’ 


; 2 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
'* ONLY yy ACCORDANCE WITH THE TERMS OF aver fins ee WITH Le | 


4 
¥ 

* 

a 

* 
AND COPIED : 
; N T * 
's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'w QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'w TRANSFERRED. : 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 

'® CORPORATION. * 
’ 

® 

® 

* 

* 

* 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MTAACP 


i ABSTRACT: 
this modules executes the deaccess function 


! ENVIRONMENT: 
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! 
0040 i starlet operating system, including privileged system services 
0041 ! and internal exec routines. 
004 ! 
004 ed 
044 
anes 
9067 AUTHOR: D. H. GILLESPIE, CREATION DATE: 18-JUL-1977 
$049 i MODIFIED BY: 
050 ! 
gh 
2g i A0007 §8SPR27676 Maria del C. Nasr 14-Dec-1979 16:20 
54 : Update transaction count in VCB for each file access and 
be, } deaccess. 
oe7 i A0006 R. I. Hustvedt, 16-Oct-1979 12:30 


v02-008 REFORMAT Maria del C. Nasr 30-Jun-1980 
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Move FILCNT from PCB to JIB 
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; 1 

$ 28 1 

; 60 1 

: 2 } LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

; es REQUIRE ‘SRCS$:MTADEF.B32'; 

: 65 48 1 FORWARD ROUTINE 

4 68 4 1 DO_DEACCESS : COMMON_CALL NOVALUE, ! kernel mode deaccess 

.- @ 450 1 MTA_DEACCESS : NOPRES NOVALUE, ! main deaccess function 

; 68 451 : ZERO_CHANNEL : COMMON_CALL NOVALUE; ! zeros user's window pter 

; a 4 g 1 EXTERNAL ROUTINE 

>. 2 54 1 CLOSE FILE : LSCLOSE_FILE, ! close file accessed for write 
: 7 0455 1 DEALLOCATE, ! return space to system pool 
See bees 1 GET FI : COMMON_CALL, ! get file information block 

: ° 4 ! REWIND_VOL_SET : COMMON_CALL; ! rewind volume set 

: 76 0439 1 EXTERNAL 

: 77 60 1 CURRENT_WCB : REF BBLOCK, !' address of current window control block 
; re bee) : 10_PACKET : REF BBLOCK, ! address of current io request packet 
; 80 bees 1 ! system pcb vector 

. BF 0464 1 ! 

3 82 0465 1 SCHS$GL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE), 

3 o? 5e08 : USER_STATUS : VECTOR (2); 
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yOas080 ease t3Re 9Si13:93 — PANAAL Ok tsg534 4G - 05269 age of 
: GLOBAL ROUTINE MTA_DEACCESS : NOPRES NOVALUE = 
1e4 


' 
FUNCTIONAL DESCRIPTION: 
this routine executes the deaccess function 


CALLING SEQUENCE: 
mta_deaccess() 


INPUT PARAMETERS: 
none 


yt et et et ee 
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IMPLICIT INPUTS: 
O.packet - address of user's io request packet 
current_vcb - address of current volume control block 
current_wcb = address of current window 


OUTPUT PARAMETERS: 
none 


a 
co 


489 IMPLICIT OUTPUTS: 
490 user's window pter zeroed 
B483 window returned to system space and disconnected from volume control block 
49 ROUTINE VALUE: 
494 none 
0495 
SIDE EFFECTS: 
none 


USER ERRORS: 
ss$_badparam - irrelevant fib data 
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BEGIN 

EXTERNAL REGISTER 
COMMON_REG; 

LOCAL 
ABD : REF BBLOCKVECTOR C, ABDSK_LENGTH], ! buffer descriptors 
FIB : REF BBLOCK, ! user's fib 


: write indicator taken from window control block 
WRITE_IND : BITVECTOR (8); 
= ,BBLOCKC.JO_PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 
= GET_FIB(.ABD); 
TE_IND™= NOT .CURRENT_WCBCWCBSV_READ) 
NOT .CURRENT_VCBLVCBSV_NOWRITE); 


! deaccess file by pueprateg window to non_paged system space and dis 
! connecting it from the volume control block 


ABD 
FIB 
WRI 
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1 
KERNEL_CALL(DO_DEACCESS); 
now check if trailers should be written 


IF .WRITE_IND 
CLOSE_FILE(); 
now if rewind specified on deaccess, rewind volume set 


if af 1BCE IBSV_REWINO) 

REWIND_VOL_SET(); 
: report any block count difference, user_status(1] = difference where neg 
number means read more than should have. 
IF oo eWRITE_IND 
THE ene CURRENT VCBLVCBSL_VPFLI, VVPS$L_BLOCKDIF] NEQ 0 

BEGIN 

USER_STATUS([1] = eer OCes «Cuan NT _VCBCVCBSL eres {VPS _BLOCKDIF J; 

= 0; 


BBLOTKC. CURRENT _VCBLVCBSL_VPFLJ, OVPS$L_BLOCRDIF 
ERR_EXIT(SSS_BLOCKCNTERR) ; 


END; ' end of routine 
TITLE DEACCS 
IDENT \v04-000\ 
-EXTRN CLOSE_FILE, DEALLOCATE 
-EXTRN GET FIB, REWIND VOL SET 
-EXTRN CURRENT WCB, IO PACRET 
eEXTRN SC 


HSGL_PCBVEC, OSER_STATUS 
“EXTRN SYSSCMRRNL 


-PSECT S$CODES,NOWRT,2 


0000 00000 ENTRY MTA_DEACCESS, Save nothing 
50 00006 CF DO 900¢ MOVL 10 PACKET, RO 
50 2c 60 D0 0 OV a4z (RO), ABD 
00006 CF gi FB CALLS ik GET_FIB 
3 0 D MOVL 
0 00006 CF DO 0001 MOV CURRENT_WCB, RO 
1 9 EF OOO1A EXTZV , #1,711(RO), RO 
1 y Ef 0 EXIZY #7, #1, 11(CURRENT_VCB), R1 
$ 0 $2 0 § MCO RO, WRITE_IND 
E D C CLRL Os = §P) 
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Routine Base: $CODE$ + 0000 


107 bytes, 
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! used then return it to the system pool and credit the user's ast quota. 
: get saved address of ast block 


AST_BLOCK = .CURRENT_VCBCVCBSL_USRLBLAST); 
IF .AST_BLOCK NEQ 0 
THEN 


SESSESeES 


BEGIN 
DEALLOCATE( .AST_BLOCK); ' return to system pool 
CURRENT_VCBLVCBSL_USRLBLAST) = 0; i note this fact in vcb 


get user's pcb address 
PCB = .SCHSGL_PCBVECC.(10_PACKETCIRP$L_PIDJ)<0, 16>]; 
! credit user's ast quota 


WAI MIIIRIPIPIRININIAIPONIDD 2 2 Ot OO 
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: 118 33 } ROUTINE DO_DEACCESS : COMMON_CALL NOVALUE = ; 
: 17 60 1 !+4 ; 
; 180 ee : 
; 181 e 1 ! FUNCTIONAL DESCRIPTION: 5 
: ; ¢ o7 ' this routine does the deaccess cleanup to the system data base : 
: 1 65 1 / CALLING SEQUENCE: ; 
: : 5 298 : } do_deaccess(), called in kernel mode : 
; 189 368 1 i INPUT PARAMETERS: ; 
3 138 28 1! none 3 
i. 01! $ 
: 190 571 1 ! IMPLICIT INPUTS: F 
; «(191 B26 1! current_vcb = address of current volume control block : 
: 136 0374 : current_wcb = address of current window control block ‘ 
3 194 575 1 | OUTPUT PARAMETERS: ; 
; Hb € 8278 ' none : 
; 199 0578 1! IMPLICIT OUTPUTS: ; 
2 Bt ie : 
: 200 O51 1 i ROUTINE VALUE: ; 
vot) Oe ihe : 
: $08 0584 1 i SIDE EFFECTS: ; 
; 204 0585 1! none . 
: 205 p28 1! 3 
: Sor 0568] ; 
; 208 0589 BEGIN ; 
: 2 0391 EXTERNAL REGISTER ; 
2 § O338 COMMON_REG; : 
; 0594 LOCAL ; 
; 0595 AST_BLOCK, ! address of ast control block susp tod by user 3 
: Beae PCB : REF BBLOCK; ! address of user's process control block : 
; B205 ! if user ast control block was supplied for user label processing but not 3 
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' 
PCBLPCBSW_ASTCNT3 = .PCBCPCBSW_ASTCNT] + 1; 


thos VAK"11_ BLiss-32 V4.0-74 p 
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ZERO_CHANNEL(.10_PACKET); 
DEALCOCATE(. CURRENT_WCB); 
CURRENT_WCB = 0; 
CURRENT-VCB[VCB$L_WCB] = 0; 
CURRENT-VCB VCBSV~CANCELIQJ = 0; 
CURRENT-VCBLVCB$V-NOWRITE) = 0; 
} decrement transaction count 


CURRENT_VCBLVCB$W_TRANS] = .CURRENT_VCBLVCBSW_TRANS] - 1; 
END; ! end of routine 


return zeroed window pter to user 
return window space 

no longer an outstanding access 
update vcb to reflect deaccess 
cancel no longer applies 

turn of no write indicator 


= 
Owo uw 
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ro 
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0000 00000 DO_DEACCESS: 
. WORD 


Save pony 3 

50 44 ag 09 00002 MOVL § 68(CURRENT_VCB), AST_BLOCK : 

é 13 00006 BEQL 1$ : 

0 pd 00008 PUSHL  AST_BLOCK : 

00006 CF 01 FB OOO0A CALLS #1, DEALLOCATE ; 
44 AB D4 0000F CLRL  68(CURRENT VCB) : 

51 000000006 9F D0 0001 MOVL § a@#SCHSGL_PTBVEC, R1 : 

30 00006 CF 00 001 MOVL.  10_PACKET, RO ; 

0 0c g 001E ADDL2 #12, RO ; 

50 60 3C 00021 MOVZWL (ROS, RO : 

50 6140 D0 00024 Ov.  (r1)¢ROJ, PCB ; 

38 =6A0 ~B6 00028 INCW 56(PCB) : 

00006 CF DD 00028 1$: PUSHL 10_PACKET : 

0000v CF 01 FB 0002F CALLS #17, ZERO CHANNEL ; 
00006 cr DD 000 PUSHL CURRENT QCB ; 

00006 CF 1 FB 00038 CALLS #1, DEACLOCATE ; 
00996 CF D4 00030 CLAL CURRENT wcB : 

8 AB pA 0041 CLRL (CURRENT vcB) ; 

0B AB AO BF BA 00044 BICB2 #160, 11(CORRENT_VCB) : 
OC AB 8 00049 DECW  12¢(CURRENT_VCB) : 

4 0004C RET : 


; Routine Size: 77 bytes, Routine Base: S$CODES + 0068 


: 249 0630 1 
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GLOBAL ROUTINE ZERO_CHANNEL (PACKET) : COMMON_CALL NOVALUE = 
1+¢ 
FUNCTIONAL DESCRIPTION: 
This routine zeroes out the window pointer being returned to 
the user for his anes control block. It also credits one to the 


user's open file quo 
This routine must 4 executed in kernel mode. 
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3 a 

3 § 1 

3 1 

: 4 1! 

3 5 1! 

3 1! 

$ $ 1! 

: 1! 

; § 1 i 

; 260 Be 

: 261 . ae 

3 66 ¢ 1 ! CALLING SEQUENCE: 

3 o7 Z : } zero_channel () 

; 265 5 1 ! INPUT PARAMETERS: 

; 266 § 1! none 

; 267 1! 

; 268 8 1 ! IMPLICIT INPUTS: 

; 269 1! io_packet: i/o packet of request 

; 270 0650 1! 

MH 71 0651 1 ! OUTPUT PARAMETERS: 

3 st¢ 0636 7 | none 

: ef 0653 1! 

3 74 9654 1 ! IMPLICIT OUTPUTS: 

; 75 0655 1! none 

; sf8 9638 1! 

Hy 77 065 1 ! ROUTINE VALUE: 

; 278 0658 1! none 

: 444 0659 1! 

3; 280 0660 1 ! SIDE EFFECTS: 

; 281 0661 1! channel window pointer cleared, file quota bumped 
3 HG 0662 1! 

; 28 06635 1 !-- 

3: 284 664 1 

; 285 665 BEGIN 

; 286 0666 

3 87 0667 EXTERNAL REGISTER 

; 88 0668 COMMON_REG; 

; 289 0669 

; 2 Bg09 MAP 

: 91 671 PACKET : REF BBLOCK; 

ee 

; 7 LOCAL 

: 294 74 : REF BBLOCKVECTOR C, ABDSC_LENGTH], phe 4 descriptors 
3 5 75 J18 : REF BBLOCK, ' Job information block 
3 39 Por PCB : REF BBLOCK: ' address of user process control block 
; 98 78 ABD = sGOLOCKE. PACKETCIRPS$L_S APTE), AIBSL_DESCRIPTI; 
: 299 679 ABDCABDSC_WINDOW, 

; 300 80 "ABDLABDST WINDOW, ABDSO._ TEXT) + ABDCABDSC WINDOW, ABDSW_TEXT] + 1 = 0; 
3 4 a 74 = Be West eC PCBVEC » (PACKET IRPSL P1D])<0, 16>] 

3 =. 

; wo 6 ‘ SiBCJ18SWeF PiteatT” = j1BCy1BSu_ FILCNT) + 1; 

; 304 0684 END; ! end of routine ZERO_CHANNEL 
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0004 eENTRY ZERO_CHANNEL, Save R2 
¢ Of AC D OVL PACKET, R2 
C D MOVL  @44(R25, ABD 
02 Al A OV ry ¢(ABD) 
50 1 3¢ ‘ MOVZWL (ABD RO 
01 A140 9F 0001 PUSHAB 1(ABDSCROJ 
ge D4 13 CLRL a(SP)+ 
51 00000000G 9F bd 01 MOVL @4SCHSGL_PCBVEC, R1 
0 0c A 01 MOVZWL tee, RO 
6 6140 D 0 MOVL  (R1)CROI, PCB 
0088 cO OD MOVL {eect ce). J1B 
AO 8° 0028 INCW 48(J1B) 
4 0002E RET 
: Routine Size: 47 bytes, Routine Base: S$CODE$S + 0088 
; 305 0685 1 
; 306 0686 1 END 
: 307 0687 1 
: 308 0688 0 ELUDOM 
$ PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 231 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
‘2 peek ee ee a ea Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped ime 
; ~$255$DUA28: CSYSLIBILIB.L32;1 18619 24 0 1000 00:01.9 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DEACCS/OBJ=OBJ$:DEACCS MSRC$:DEACCS/UPDATE=(ENHS$:DEACCS) 


ERistiime: 6085, 9 sate trees 
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3 Elapsed aeee 

3; Lines/CPU Min: 

; Lexenes/CPU-Rin: sai 

: ry Ut 8 pages 
; Compi hs connuet? 
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